GDP_Data2 <- read.csv('GDP.csv',header = TRUE)
summary(GDP_Data2)

##       Year          China              Germany         
##  Min.   :1960   Min.   :4.721e+10   Min.   :2.150e+11  
##  1st Qu.:1974   1st Qu.:1.455e+11   1st Qu.:7.722e+11  
##  Median :1988   Median :3.301e+11   Median :2.010e+12  
##  Mean   :1988   Mean   :1.970e+12   Mean   :1.940e+12  
##  3rd Qu.:2003   3rd Qu.:1.613e+12   3rd Qu.:2.897e+12  
##  Max.   :2017   Max.   :1.224e+13   Max.   :3.891e+12  
##                                     NA's   :10         
##      France          United.Kingdom          India          
##  Min.   :6.265e+10   Min.   :7.233e+10   Min.   :3.654e+10  
##  1st Qu.:3.044e+11   1st Qu.:2.128e+11   1st Qu.:9.742e+10  
##  Median :1.022e+12   Median :9.185e+11   Median :2.754e+11  
##  Mean   :1.176e+12   Mean   :1.163e+12   Mean   :5.458e+11  
##  3rd Qu.:1.782e+12   3rd Qu.:1.971e+12   3rd Qu.:5.767e+11  
##  Max.   :2.918e+12   Max.   :3.074e+12   Max.   :2.597e+12  
##                                                             
##      Japan           United.States      
##  Min.   :4.431e+10   Min.   :5.430e+11  
##  1st Qu.:4.901e+11   1st Qu.:1.585e+12  
##  Median :3.063e+12   Median :5.455e+12  
##  Mean   :2.705e+12   Mean   :6.993e+12  
##  3rd Qu.:4.707e+12   3rd Qu.:1.138e+13  
##  Max.   :6.203e+12   Max.   :1.940e+13  
##